unit tCarregaJog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TfCarregaJog = class(TForm)
    Panel2: TPanel;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fCarregaJog: TfCarregaJog;

implementation

uses TSCOUT;

{$R *.DFM}

procedure TfCarregaJog.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TfCarregaJog.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure TfCarregaJog.BitBtn1Click(Sender: TObject);
var
  i : integer;
  s : string;
begin
  {
  for i := 0 to ( memo1.Lines.Count -1 ) do
  begin
     s := memo1.lines.Strings [i];
     case i of
     0: fScout.lbl01.caption := s;
     1: fScout.lbl02.caption := s;
     2: fScout.lbl03.caption := s;
     3: fScout.lbl04.caption := s;
     4: fScout.lbl05.caption := s;
     5: fScout.lbl06.caption := s;
     6: fScout.lbl07.caption := s;
     7: fScout.lbl08.caption := s;
     8: fScout.lbl09.caption := s;
     9: fScout.lbl10.caption := s;
     10: fScout.lbl11.caption := s;
     11: fScout.lbl12.caption := s;
     12: fScout.lbl13.caption := s;
     13: fScout.lbl14.caption := s;
     end;

     case i of
     0: fScout.lb01.caption := inttostr( i +1 );
     1: fScout.lb02.caption := inttostr( i +1 );
     2: fScout.lb03.caption := inttostr( i +1 );
     3: fScout.lb04.caption := inttostr( i +1 );
     4: fScout.lb05.caption := inttostr( i +1 );
     5: fScout.lb06.caption := inttostr( i +1 );
     6: fScout.lb07.caption := inttostr( i +1 );
     7: fScout.lb08.caption := inttostr( i +1 );
     8: fScout.lb09.caption := inttostr( i +1 );
     9: fScout.lb10.caption := inttostr( i +1 );
     10: fScout.lb11.caption := inttostr( i +1 );
     11: fScout.lb12.caption := inttostr( i +1 );
     12: fScout.lb13.caption := inttostr( i +1 );
     13: fScout.lb14.caption := inttostr( i +1 );
     end;
  end;

  close;
  }
end;

end.
